head(iris)
summary(iris)

library(e1071)
index<-sample(1:nrow(iris),100)
## 训练集和测试集
iris.train<-iris[index,]
iris.test<-iris[-index,]

## 构建模型
model.svm<-svm(Species~.,data=iris.train)

## 用模型对测试数据进行测试
result.svm<-predict(object=model.svm,newdata=iris.test,type="class")

## 混淆矩阵
table(result.svm,iris.test$Species)
